home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / qbsbkit.zip / CTVSCAN.BAS < prev    next >
BASIC Source File  |  1991-05-05  |  1KB  |  49 lines
  1.  
  2. 'QBXSBC CTVSCAN.BAS
  3. 'detection scan example for the SoundBlaster routines
  4. '5-May-1991
  5.  
  6. DEFINT A-Z
  7.  
  8. REM $INCLUDE: 'QBXIOL.BI'
  9. REM $INCLUDE: 'QBXCTV.BI'
  10. REM $INCLUDE: 'QBXFMI.BI'
  11.  
  12. DIM ports(1 TO 6)
  13. ports(1) = &H210: ports(2) = &H220: ports(3) = &H230
  14. ports(4) = &H240: ports(5) = &H250: ports(6) = &H260:
  15. DIM irqs(1 TO 4)
  16. irqs(1) = 2: irqs(2) = 3: irqs(3) = 5: irqs(4) = 7
  17.  
  18. CLS
  19. PRINT "CTVSCAN.BAS for QBXSBC"
  20. PRINT
  21. PRINT "  PORT     IRQ       DMA"
  22. PRINT "  210h      2        1"
  23. PRINT "  220h      3"
  24. PRINT "  230h      5"
  25. PRINT "  240h      7"
  26. PRINT "  250h"
  27. PRINT "  260h"
  28.  
  29. FOR p = 6 TO 1 STEP -1
  30.    LOCATE 3 + p, 2: PRINT ""
  31.    FOR I = 1 TO 4
  32.       pstat = CTVport(ports(p))
  33.       LOCATE 3 + I, 12: PRINT ""
  34.       istat = CTVirq(irqs(I))
  35.       stat = CTVdetect
  36.       IF stat = 0 THEN EXIT FOR
  37.       LOCATE 3 + I, 12: PRINT " "
  38.    NEXT
  39.    IF stat = 0 THEN EXIT FOR
  40.    LOCATE 3 + p, 2: PRINT " "
  41. NEXT
  42. LOCATE 11
  43. IF stat THEN
  44.    PRINT "Scan failed! SBC not found"
  45. ELSE
  46.    PRINT "SBC found!"
  47. END IF
  48.  
  49.